home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / 3BillyGoats.dxr / 00030_advance button.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  8.2 KB  |  256 lines

  1. property pMoveSelected, spriteNum
  2. global gCardsSelected, gPlayerHand, gDistance, gEnemyDistance, gLooper, gSingleCardSelected1, gSingleCardSelected2, gSingleCardSelected3, gSingleCardSelected4, gSingleCardSelected5, gBridge, gGoatPos, gOgrePos, gDeck, gCardsRemaining, gCardsUsed, gPaused, gGoatScore, gOgreScore
  3.  
  4. on mouseDown me
  5.   if gPaused = 0 then
  6.     if gCardsSelected = 1 then
  7.       sprite(spriteNum).member = "advance1_invert"
  8.       if gSingleCardSelected5 = 1 then
  9.         if gPlayerHand[5] = 0 then
  10.           gDistance = 0
  11.         else
  12.           if gPlayerHand[5] = 1 then
  13.             gDistance = 1
  14.           else
  15.             if gPlayerHand[5] = 2 then
  16.               gDistance = 2
  17.             else
  18.               if gPlayerHand[5] = 3 then
  19.                 gDistance = 3
  20.               else
  21.                 if gPlayerHand[5] = 4 then
  22.                   gDistance = 4
  23.                 else
  24.                   if gPlayerHand[5] = 5 then
  25.                     gDistance = 5
  26.                   end if
  27.                 end if
  28.               end if
  29.             end if
  30.           end if
  31.         end if
  32.       else
  33.         if gSingleCardSelected4 = 1 then
  34.           if gPlayerHand[4] = 0 then
  35.             gDistance = 0
  36.           else
  37.             if gPlayerHand[4] = 1 then
  38.               gDistance = 1
  39.             else
  40.               if gPlayerHand[4] = 2 then
  41.                 gDistance = 2
  42.               else
  43.                 if gPlayerHand[4] = 3 then
  44.                   gDistance = 3
  45.                 else
  46.                   if gPlayerHand[4] = 4 then
  47.                     gDistance = 4
  48.                   else
  49.                     if gPlayerHand[4] = 5 then
  50.                       gDistance = 5
  51.                     end if
  52.                   end if
  53.                 end if
  54.               end if
  55.             end if
  56.           end if
  57.         else
  58.           if gSingleCardSelected3 = 1 then
  59.             if gPlayerHand[3] = 0 then
  60.               gDistance = 0
  61.             else
  62.               if gPlayerHand[3] = 1 then
  63.                 gDistance = 1
  64.               else
  65.                 if gPlayerHand[3] = 2 then
  66.                   gDistance = 2
  67.                 else
  68.                   if gPlayerHand[3] = 3 then
  69.                     gDistance = 3
  70.                   else
  71.                     if gPlayerHand[3] = 4 then
  72.                       gDistance = 4
  73.                     else
  74.                       if gPlayerHand[3] = 5 then
  75.                         gDistance = 5
  76.                       end if
  77.                     end if
  78.                   end if
  79.                 end if
  80.               end if
  81.             end if
  82.           else
  83.             if gSingleCardSelected2 = 1 then
  84.               if gPlayerHand[2] = 0 then
  85.                 gDistance = 0
  86.               else
  87.                 if gPlayerHand[2] = 1 then
  88.                   gDistance = 1
  89.                 else
  90.                   if gPlayerHand[2] = 2 then
  91.                     gDistance = 2
  92.                   else
  93.                     if gPlayerHand[2] = 3 then
  94.                       gDistance = 3
  95.                     else
  96.                       if gPlayerHand[2] = 4 then
  97.                         gDistance = 4
  98.                       else
  99.                         if gPlayerHand[2] = 5 then
  100.                           gDistance = 5
  101.                         end if
  102.                       end if
  103.                     end if
  104.                   end if
  105.                 end if
  106.               end if
  107.             else
  108.               if gSingleCardSelected1 = 1 then
  109.                 if gPlayerHand[1] = 0 then
  110.                   gDistance = 0
  111.                 else
  112.                   if gPlayerHand[1] = 1 then
  113.                     gDistance = 1
  114.                   else
  115.                     if gPlayerHand[1] = 2 then
  116.                       gDistance = 2
  117.                     else
  118.                       if gPlayerHand[1] = 3 then
  119.                         gDistance = 3
  120.                       else
  121.                         if gPlayerHand[1] = 4 then
  122.                           gDistance = 4
  123.                         else
  124.                           if gPlayerHand[1] = 5 then
  125.                             gDistance = 5
  126.                           end if
  127.                         end if
  128.                       end if
  129.                     end if
  130.                   end if
  131.                 end if
  132.               end if
  133.             end if
  134.           end if
  135.         end if
  136.       end if
  137.       pMoveSelected = 1
  138.     else
  139.       if gCardsSelected >= 2 then
  140.         sprite(120).member = "sign_only1card"
  141.         sprite(120).visible = 1
  142.         puppetSound(3, "sheepbaa")
  143.       end if
  144.       if gCardsSelected = 0 then
  145.         sprite(120).member = "sign_selectaCard"
  146.         sprite(120).visible = 1
  147.         puppetSound(3, "sheepbaa")
  148.       end if
  149.       gPaused = 1
  150.     end if
  151.   end if
  152. end
  153.  
  154. on mouseLeave
  155.   sprite(spriteNum).member = "advance1"
  156.   pMoveSelected = 0
  157. end
  158.  
  159. on mouseUp
  160.   if gPaused = 0 then
  161.     if gCardsSelected = 1 then
  162.       if (gGoatPos + gDistance) < gOgrePos then
  163.         sprite(spriteNum).member = "advance1"
  164.         pMoveSelected = 0
  165.         gBridge[gGoatPos] = 0
  166.         repeat while gLooper < gDistance
  167.           puppetSound(1, "WormWalk1")
  168.           sprite(35).member = "goaty1"
  169.           sprite(35).locH = sprite(35).locH + 12
  170.           sprite(35).locV = sprite(35).locV + 4
  171.           repeat with pCount = 50 to 70
  172.             sprite(pCount).locH = sprite(pCount).locH + 12
  173.             sprite(pCount).locV = sprite(pCount).locV + 4
  174.           end repeat
  175.           startTimer()
  176.           repeat while the timer < 8
  177.             updateStage()
  178.           end repeat
  179.           updateStage()
  180.           puppetSound(2, "WormWalk2")
  181.           sprite(35).member = "goaty2"
  182.           sprite(35).locH = sprite(35).locH + 12
  183.           sprite(35).locV = sprite(35).locV + 4
  184.           repeat with pCount = 50 to 70
  185.             sprite(pCount).locH = sprite(pCount).locH + 12
  186.             sprite(pCount).locV = sprite(pCount).locV + 4
  187.           end repeat
  188.           startTimer()
  189.           repeat while the timer < 8
  190.             updateStage()
  191.           end repeat
  192.           updateStage()
  193.           gGoatPos = gGoatPos + 1
  194.           gLooper = gLooper + 1
  195.         end repeat
  196.         gCardsUsed = gCardsUsed + 1
  197.         sprite(124 + gCardsUsed).visible = 0
  198.         if gSingleCardSelected1 = 1 then
  199.           gPlayerHand[1] = gDeck[gCardsUsed]
  200.           sprite(10).member = "card_" & gDeck[gCardsUsed]
  201.           sprite(45).visible = 1
  202.           sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
  203.         else
  204.           if gSingleCardSelected2 = 1 then
  205.             gPlayerHand[2] = gDeck[gCardsUsed]
  206.             sprite(11).member = "card_" & gDeck[gCardsUsed]
  207.             sprite(45).visible = 1
  208.             sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
  209.           else
  210.             if gSingleCardSelected3 = 1 then
  211.               gPlayerHand[3] = gDeck[gCardsUsed]
  212.               sprite(12).member = "card_" & gDeck[gCardsUsed]
  213.               sprite(45).visible = 1
  214.               sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
  215.             else
  216.               if gSingleCardSelected4 = 1 then
  217.                 gPlayerHand[4] = gDeck[gCardsUsed]
  218.                 sprite(13).member = "card_" & gDeck[gCardsUsed]
  219.                 sprite(45).visible = 1
  220.                 sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
  221.               else
  222.                 if gSingleCardSelected5 = 1 then
  223.                   gPlayerHand[5] = gDeck[gCardsUsed]
  224.                   sprite(14).member = "card_" & gDeck[gCardsUsed]
  225.                   sprite(45).visible = 1
  226.                   sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
  227.                 end if
  228.               end if
  229.             end if
  230.           end if
  231.         end if
  232.         gBridge[gGoatPos] = 1
  233.         gSingleCardSelected1 = 0
  234.         gSingleCardSelected2 = 0
  235.         gSingleCardSelected3 = 0
  236.         gSingleCardSelected4 = 0
  237.         gSingleCardSelected5 = 0
  238.         gDistance = 0
  239.         gLooper = 0
  240.         gCardsSelected = 0
  241.         gCardsRemaining = gCardsRemaining - 1
  242.         member("CardsRemaingText").text = string(gCardsRemaining)
  243.         if (gCardsUsed < 21) and (gCardsRemaining > 0) and (gGoatScore < 100) and (gOgreScore < 100) and (gGoatPos >= 6) and (gOgrePos <= 28) then
  244.           EnemyAI()
  245.         end if
  246.       else
  247.         sprite(120).member = "sign_pastOpponent"
  248.         sprite(120).visible = 1
  249.         puppetSound(3, "sheepbaa")
  250.       end if
  251.     end if
  252.   end if
  253.   AnyPossibleGoatMoves()
  254.   scoreTally()
  255. end
  256.